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PREFACE 


Since FLINT (originally written in FRAP) was released 
about a year ago by Itek Corporation, through The Digital 
Equipment Computer Users Society, there has been considerable 
demand for improved documentation and a revised listing. As 
a service to DECUS, Adams Associates gladly offered to under- 
take the conversion and redocumentation of FLINT, and has 
done so with the permission and assistance of Itek. The re- 
sults of its work are reported in this paper. 


In the near future, new FRAP and MACRO listings will be 
made available by Adams Associates and other modifications 
are being considered. Among these are the production of a 
totally relocateable version of FLINT, the removal of expo- 
nent bias, and the addition of other floating-point instruc- 
tions such as a floating index. 


Adams Associates wishes to acknowledge with thanks the 
substantial contribution made by Edward J. Radkowski of Itek 
Corporation to the revision of FLINT. Readers of this paper 
are invited not only to request additional copies of it from 
Adams Associates but also to forward to the company any sug- 
gestions or criticisms. These should be marked to the atten- 
tion of David J. Isenberg or Jacob M. Baker. 
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FLINT 36 A3D 


Introduction 


FLINT is an interpretive routine that permits the Digital 
Equipment Corporation PDP-1 to perform double-precision float- 
ing-point arithmetic, input, output, and elementary function 
evaluation. Originally written in FRAP for use in lens design 
work (though nonetheless a general-purpose program), FLINT has 
now been translated into DECAL to be compatible with other 
programs in this language. Arithmetic and function evaluation 
are performed interpretively, input and output are handled by 
closed subroutines addressed directly by the user's programs, 
and overall format control is left to the user's routines. 


Instruction Repertoire 


The instructions currently available for the interpreter 
are listed below: 


Floating Operations 


Operation 

Function Mnemonic Code 
Deposit floating accumulator fda 00. 
Floating add fad 02 
Floating subtract fsu OW 
Load floating accumulator Flo 06 
Floating square root fsr ou 
Floating sine fsi 26 
Floating cosine . fco 30 
Floating skip fsk 32 
Floating multiply fmu S4 
Floating divide da. 56 


Floating operate fopr 76 


Entering Interpreter 


Octal 
Function Mnemonic Code 
Enter interpretive mode Cal | as 160000 
Enter interpretive mode and 
load floating accumulator eal y L6yyyy 
Formats 


Floating-point quantities are expressed in the form 
y-2” where the magnitude of y is less than one. Arithmetic 
is done using a floating-point accumulator (FLAC) which con- 
sists of four storage registers. The absolute value of y is 
stored to double-precision accuracy in the first two registers, 
the sign of y in the third, and x + 11 in the fourth. With a 
bias of +ll, the exponent ranges from -42 to +20. This range 
was selected by Itek as being most useful for their work. 


Operands for floating-point instructions are assumed by 
the interpreter to be stored in either two or three consecu- 
tive storage registers, depending on whether Program Flag 5 
is off or on. In the two-register format (Program Flag 5 
off), bit 0 (bits being numbered 0 to 17 from left to right) 
of the first register contains the sign of y. As shown in 
the diagram below, the first 17 bits of the absolute value of 
y are stored in bits 1-17 of the first register, and the re- 
maining 12 in bits 6-17 of the second register. Bits O-5 of 
the second register contain the signed quantity equal to x 
plus the exponent bias. 


[a | bbbbbbbbbbbbbbbbb | ddddddddaddd 


sign of y 

£LPSt 17 Dies: of y 

x plus exponent bias 
“Find l 12° bits or ¥ 
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TWO-WORD FORMAT 


In the three-register format (Program Flag 5 on), as il- 
lustrated below, bit O of the first register contains the sign 
of y and bits 1-17 are the first 17 bits of the absolute valve 
of y. Bit O of the second register is always zero and bits 
1-17 contain the remaining bits of the absolute value of y. 
The third register contains the value of the exponent incre- 
mented by the exponent bias. This three-word format is espe- 
cially useful for saving and restoring FLAC and is often used 
only for that purpose. 





|@ | bkbbbbbbbbbbbbbbb | lc [a dddddddddddddddda | | eeeeeeeeeceeeeceee | 
a sign of y 
b first 17 bits of y 
c zero always 
d final 17 bits of y 


a) 


x plus exponent bias 


THREE-WORD FORMAT 


Instructions to be processed interpretively are written 
in the same format as normal PDP-1l instructions and are as- 
sembled with a five-bit operation code, an indirect address 
bit, and a twelve-bit address. This address refers to two or 
three consecutive locations, depending on the position of 
Program Flag 5. Thus, in the description below of the inter- 
preted operations, the symbol C(Y) refers to the contents of 
locations Y, Yt+l, and optionally Y+2, where Y is the address 
part (after indirect addressing, if any, has been performed) 
of the instruction being interpreted. If Y is zero, the in- 
struction is interpreted as referring to FLAC itself. 


There are eleven floating-point interpretive instructions 
which, with their overflow and underflow conditions, are de- 
scribed in detail later. 


When floating-point operations are to be performed, it 
is necessary to enter the interpretive portion of FLINT. 
This is accomplished by the PDP-1l instruction cal, which 
transfers control to location 101, with the Location of the 
next instruction to be interpreted in the accumulator. Since 
it may often be necessary to enter and Leave the interpretive 
mode, the cal instruction is interpreted as a floating load 
(flo) as well as an entry instruction whenever the address of 


the cal is other than zero. Indirect addressing may not be 
used with the cal instruction since this is assembled as a 
jda instruction; therefore, if indirect addressing is desired, 
the correct sequence of instructions would be cal..; flo ‘Y;. 


The interpreter is so arranged that once the cal instruc- 
tion is encountered, it will regard each succeeding instruc- 
tion as a floating-point instruction until it encounters an 
exit instruction. Any instruction with an operation code num- 
ber of 10 through 23, 34 through 47, or 60 through 75 will be 
regarded as an exit instruction with the exception of 16, the 
cal instruction. 


Instructions with these operation code numbers will be 
simultaneously executed and used as exit instructions when 
encountered in the interpretive mode. All succeeding instruc- 
tions will be considered normal machine instructions until 
another cal is encountered. Thus, such instructions as xor - 
operation code 06, and - operation code O02, or dio - operation 
code 32, may not be used in their normal sense while in the 
interpretive mode. The instructions whose operation codes 
have thus been preempted by floating instructions were se- 
lected because they are unlikely to be used while in floating 
mode. It is important to note that, once in the interpretive 
mode, instructions not having the operation codes cited in 
the preceding paragraph will be interpreted as Floating in- 
structions whether or not they are so intended. 


Unfloating Routine 


The instruction jda unflo enters a subroutine which con- 
verts the floating-point number stored in FLAC to a fixed- 
point integer. This integer is equal to the value of the 
contents of FLAC divided by the quantity two raised to the 
power of the contents of location fixexp. The integer result- 
ing from this conversion is stored in the accumulator and the 
contents of FLAC are destroyed. (The unflo subroutine trun- 
cates rather than rounds the quotient obtained by dividing 
two to the appropriate power into C(FLAC). Thus if FLAC con- 
tains 1.4, and fixexp contains 0, jda_unflo will put 1 into 
a accumulator; if FLAC contains 1.4, and fixexp contains 

> Jda unflo will put O into the accumulator; if FLAC con- 
Ste 1.4, and fixexp contains -1, jda_ unflo will put 3 into 
the accumulator.) 


Input Routines 


There are three input subroutines which, like the output 
subroutines, are addressed directly from the main program. 
The first, entered by the instruction jda readc, reads and 
translates single characters. The second, entered by the in- 
struction jda readg, handles groups of characters. Each of 
these two routines reads from punched tape or from the con- 
sole typewriter, depending on whether the input control word 
(ieword) contains taper (for tape) or typer (for typewriter) . 
FLINT is arranged so that icword contains taper unless this 
is altered by the user‘s routine. Such alteration is accom- 
plished by writing: lac taper; dac_icword; etc. 


After a character is read, it is compared with the en- 
tries in a table containing the standard Fio-dec Code for 
each character as well as a control code that may have one 
of eight different values. Code 0 marks characters to be ig- 
nored, such as illegal configurations which do not correspond 
to typewriter or Flexowriter symbols. Code 1 marks characters 
such as space or tab, which serve as delimiters indicating 
the end of an alphanumeric word. Code 2 marks the decimal 
digits 0-9 and Code 3 marks the symbols used in floating- 
point numbers, such as a minus sign or a period (used as a 
decimal point). Codes 4-7 are assigned to the alphabetic 
characters; only one bit is tested and all characters having 
any of these four codes are treated identically. 


The readc routine reads a single character, looks it up 
in the table to find the control code, and returns to the main 
program with the concise code (with 20 and O reversed) in 
bits 12-17 of the accumulator, which elsewhere is filled with 
zeros and the iotble entry in I0. If the control code is 0, 
another character is read and processed in the same manner 
before returning to the main program. 





The readg routine reads numerical or alphabetic groups 
and determines which group is being read by noting the con- 
trol code of the first character. If the code is 4 through 
7, the group is alphabetic; if 2 or 3, it is numeric; if 0 
to 1, the character is ignored and the next character treated 
as the first. 


When reading from paper tape, location buff4 must be set 
to zero before a call to readg the first time that this in- 
struction is called, and if successive calls to readg are in- 
terspersed with calls to any of the other read routines which 
are also reading from paper tape. 





If the group is alphabetic, the characters are translated 
and their concise codes are saved until either a delimiter 
(control code 1) is encountered or four characters with con- 
trol codes 2 through 7 have been read. Characters with con- 
trol code O are always ignored. 





The coneise codes of the one, two or three characters 
preceding either the delimiter or the fourth character are 
then assembled in the accumulator, each occupying six bits 
with the first one to the left and the whole group right-Jjus- 
tified, with zeros on the left if necessary. The control and 
the concise codes of the delimiter or fourth character are 
put in IO bits O-2 and 12-17, respectively. Program Flag 4 
is on if four characters were read, and off if a delimiter 
was encountered. Control is then returned to the main program. 


If the group is numeric, characters are read until a de- 
limiter or a character with control code 4 through 7 is encoun- 
tered. A plus or minus sign may, but need not, appear anywhere 
in the number, and there may be a maximum of ten decimal dig- 
its. (In FLINT, a plus sign is indicated by "(", a left pa- 
renthesis, rather than by "+". the conventional plus symbol. 

If there are two or more minus signs, all but the last are 
Lenored.:) 


If a decimal point appears, the resulting number is con- 
sidered to be a floating-point integer and is formed in FLAC, 
Program Flag 4 is turned off, and overflow or underflow is 
Signalled as in floating add. If two or more decimal points 
appear, all but the last are ignored. If no decimal point 
occurs, the result is considered to be a fixed-point integer, 
Program Flag 4 is turned on and, if it exceeds 131,071 in 
magnitude, Program Flag 6 is also turned on. The fixed-point 
integer appears in the accumulator when control is returned 
to the main program. Whether the integer is floating-point 
or fixed-point, the control and the concise codes of the char- 
acter which served as a delimiter appear in I0 bits 0-2 and 
12-17, respectively, and the previous contents of FLAC are 
destroyed. 


The third subroutine, entered by the instruction jsp 
buff, brings characters from paper tape to the I0 register. 
Before the jsp, the instruction dzm_buff4 should be given. 
The first succeeding jsp buff instruction will then read 
enough characters from paper tape (45, as the buffer length 
is now set) to fill the buffer and put the Flexowriter code 
of the first character into I0 bits 10-17. The next jsp buff 


instruction places the second character read from the buffer 
into I0 bits 10-17, and each such succeeding instruction 
brings another character from the buffer into the I0 register 
until all the characters have been brought in. The next jsp 
buff instruction reads another buffer full of characters from 
tape, and the entire process is repeated. 


Output Routines 


There are three output subroutines, all of which write 
information on punched tape, the console typewriter, or both, 
depending on whether the output control word, location ocword, 
contains tapew (tape only), typew (typewriter only), or bothw 
(tape and typewriter). There is also the write-I0 routine 
(entered by the instruction jda writio) which writes on paper 
tape the eight-bit character contained in bits 10-17 as many 
times as specified by the number in I0 bits 0-7. If IO bits 
O-7 are zeros, the eight-bit character is written once. No 
look-up or conversion is performed and the character is writ- 
ten on tape regardless of the contents of the output control 
word. 


The write-character routine, (entered by the instruction 
jda_ writc) writes the six-bit concise code character contained 
in I0 bits 12-17 as many times as specified by the contents 
of I0 bits 0-7, using the same convention as the write-I0 
routine. 


The write-integer routine (entered by jda_ write)writes 
the integer in the accumulator converted to decimal form, 
followed by the character in 10 bits 12-17. The final char- 
acter may be written repeatedly according to IO bits O-7 in 
the same manner as the write-I0O routine. Insofar as the sign 
and initial spacing or zero suppression is concerned, the 
format is controlled by the value of the format control word, 
format. 


The write-floating routine (entered by jda writf)writes 
the contents of FLAC converted to decimal form, followed by 
the character in IO bits 12-17 exactly as in the write-integer 
routine. The contents of FLAC are destroyed after calis to 
either the write or the writf routine. 


Format control is specified by the contents of location 
format as follows: 


Bits 0-5 


Bits 6-11 


Bits 12-14 


Bits 15-17 


The number of digits to the left of the 
decimal point. If zero or less than the 
number of significant digits, all signifi- 
cant digits will be printed; otherwise 
spaces or zeros will appear on the left 

to fill out the required number of spaces 
to right-justify the column; this must be 
l2, or less for fixed-point numbers. 


The number of digits to the right of the 
decimal point. This must be zero for 
fixed-point integers, if zero for float- 
ing-point numbers, no decimal point will 
be printed. 


Sign control. If zero, no sign will be 
printed; if 1, 2 or 3, a minus sign will 
be printed for negative numbers and noth- 
ing, space or plus sign, respectively, 
for positive numbers. 


Zero control. If zero, spaces are used 

in place of initial zeros; if one, initial 
zeros are printed, this being useful for 
handling long integers and fixed-point 
numbers other than integers. 


The contents of format may be altered by the following 
sequence of instructions: Jac nf; dac format; etc., where nf 


Seesmic rece aa ane eee ene 


contains the desired contents of format. 


Listed below are system symbols declared by FLINT; there- 
fore, they should not be used by a program which uses FLINT 
and is assembled with it: 


iotble ocword 
fixexp write 
unflo readg 
writf buff 
write typer 
writio taper 
bothw icword 
tap ew readc 
typ ew buff4 


format 


Description of Instructions 


flo 


fad 


fsu 


fmu 


fdi 


fsr 


fsi 


Feo 


floating load: Unpack C(Y) from its two- or 
three-word format into the four-word format 
and place in FLAC. 


floating add: Place the arithmetic sum of C(Y) 
and C(FLAC) in FLAC. If the sum is greater 


than giSl06l the result is incorrect and Pro- 
gram Flag 6 is turned on. If the result is 


less than g- 131084 or if the mantissa of the 
sum is zero, the mantissa of FLAC will be posi- 
tive zero and the exponent of FLAC will be -42 
upon completion of the operation. Such astro- 
nomical exponents can be obtained only because 
an entire 18-bit word is allocated to the ex- 
ponent in FLAC. 


floating subtract: C(Y) is subtracted from 
C(FLAC). and the difference is put in FLAC. 
Overflow and underflow are handled as in float- 
ing add. 


floating multiply: The product of C(Y) and 


C(FLAC) is placed in FLAC. Overflow and under- 


flow are handled as in floating add. 


floating divide: C(FLAC) is divided by C(Y) 
and the quotient is put in FLAC. Overflow and 
underflow are handled as in floating add. 


floating square root: The square root of C(Y) 
is put in FLAC if C(Y) is positive. Overflow 
conditions are not possible. If C(Y) is nega- 
tive, the contents of FLAC are left undisturbed 
and Program Flag 4 is turned on. 


floating sine: C(Y) is treated as an angle in 
radians. The sine of this angle is put into 
FLAC. Error conditions are not possible. 


floating cosine: Cos C(Y) replaces C(FLAC) as 
in floating sine. 


10 


fda 


fsk 


fopr 


floating deposit accumulator: C(FLAC) is packed 
into the two- or three-word format depending 

on the position of Program Flag 5, and deposited 
into locations Y, Y+l, and optionally Y+2. With 
Program Flag 5 off, if the magnitude is as large 


as 2 oe Program Flag 6 is turned on. If less 


than or ee the quantity deposited has a mantissa 
of zero and an exponent of -43. If Program Flag 
5 is on (three-word format), no such check is 
performed. 


floating skip: The interpreter clears the I0 
register and sets the sign of the accumulator 
to the sign of C(FLAC), then loads the most 
significant bits of the mantissa in bits 1-1/7. 
It then skips or executes the next sequential 
instruction, depending on whether the condition 
tested for is true or false. 


Floating operate: This instruction places the 
sign of FLAC in the accumulator, executes the 
instruction specified by the address part of 
the fopr (e.g., fopr 200 - clear accumulator 
and therefore sign register) and returns the 
result to FLAC. 


It is possible that the fopr specified may not 
change the accumulator (e.g., fopr 15 - set 
Program Flag 5). In this case the operation 
will leave the sign of FLAC unchanged. 


In preparing a DECAL symbolic tape which will 
make use of the floating skip and floating 
operate instructions, the required format is 
fsk or fopr followed first by the indirect bit 
if required, and then by the address of the 
appropriate skip or operate instruction. Thus 
a floating skip on non-zero accumulator would 
be written as £sk_ * 100 and a floating comple- 
ment accumulator as fopr 1000. 


Ad. 


Possible Modifications by Users 


Partially relocateable version: 


All but the first 100, instructions for FLINT may 
be relocated. To do so, the following changes should be 
made in the symbolic tape: 


1. The instruction immediately before the comment 
"divide here™ (on page 15) should be followed by "blk" 
and "fin"; this is the end of the fixed part. 


2. The instruction immediately after the comment 
"divide here™ should be preceded by "blk"; this is the 
beginning of the relocateable part. 


3. The following should be declared as system sym- 
bols at the beginning of the fixed part: 


norm4 Fadr 
flor fsur 
a5 fsrr 
a3 fsir 
al feor 
Sy fskr 
brkpt fmur 
fdar fdir 
foprr 


These symbols must be located in the relocateable 
part and their delimiters changed to " * ™ (apostrophe). 


4. The following should be declared as system sym- 
bols at the beginning of the relocateable part: 


gq 
ada 


al 
pe 


These symbols must be located in the fixed part and 
their delimiters changed to " ' " (apostrophe). 


5. The two parts should be assembled and two loader 
tapes obtained. The fixed part must be loaded into lo- 
cations starting at 100,. The relocateable part may be 
loaded into any 2051, consecutive locations. 
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Expansion of input buffer: 


The size of the "read group" buffer area may be 
altered by changing; first, the number currently set at 
buff42 to the desired value; secondly, the number cur- 
rently set at bufflt+l to the new value in buff42-1; and, 
thirdly, the number currently set at buff2at4 to the new 
value in buff4e. 


DECAL Listing 


A printout of the symbolic tape of FLINT 36 A3D appears 
on the next 26 pages. 
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»o» FLINT-36 A3D Decal version released October 29, 1963 


fopr 
fdi 
fsk 
fmu 
fad 
fda 
fsu 
fsr 
flo 
fsi 
fco 


nMrRON 


enters 


ore 


aes 


aca. 


ewd 760000 
ewad 560000 
ewd 320000 
ewda 540000 
ewad O20000 
ewd OO0000 
ewd O40000 
ewd 240000 
ewd 060000 
ewd 260000 
ewd 300000 
ewd 400000 
ewda 300000 
ewda 200000 
ewdad OO0000 
blk 

o% 2>,.ac on entry 
sub = oct 1 

dap pe 

law 7777 

and! pe 

sza! 

jmp norm4 

dap q 

jmp flor 

lac .. 

dap q 

sma spa szo! 
lio = oct 4403 
rel 5 

dio 741 

— ee becomes Lio reference 
spi 
Jmp a5 


eo program counter 


oo eCNtry 


ooe' PC, leave interpretive 
aes mode 

spa 

jmp a3 
ri. 4. 
spi! 
Jmp q 
lac! a2 
dap 7+1 
jmp.» 


eoeindirectly addressed 


>> oflo,fda,fsk 
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table: 


OWSNNNNNNNDANNNNNNNNBRHOANNNNNNEHROADEYH 
pw) 


law .. es program counter 

sza! 

jmp a4 ..emove flac to y 

lac'q .. address present, unpack 
dac sy +. Sign 

jmp brkpt 222tO relocatable portion 


fdar 
fadr 
fsur 
flor 


fsrr 

fsir 

feor 

fskr «e-em L-fskr in previous 
eee Versions 


fmur 
fdir 


foprr «».m 1 foprr in previous 
k «ee versions 


eee Givide here 


fopr 
fdi 
fsk 
fmu 
fad 
fda 
fsu 
fsr 
flo 
fsi 
feo 


me N 


borkpt:. 


ewd 
ewa 
ewd 
ewd 
ewd 
ewd. 
ewd 
ewd 
ewd 
ewda 
ewd 
ewd 
ewd 
ewd 
ewd 
blk 
and 
dac 
idx 
lac! 


szf. 


jmp 
and 


760000 
560000 
320000 
540000 
020000 
000000 
040000 
240000 
060000 


260000 


300000 
400000 
300000 
200000 
000000 


¥ 
q 
q 


5 
agg 


= oct 7777 


ral 5 


dac 
lac! 
sar 
sar 
dac 
jmp 
lac! 


dap. 


ral 
Jmp 
lac 
dac 
lac 
dac 
lac 
dace 
lac 
dac 


jmp 


yP 


6 
ey 
aca 
q 

q 

5 
at 
a 


BA 


ap 
yp 
sa 
sy 
ea 
cy. 
aga 


oct 377777 


e¢ bits 1-17 


->»pick indirect address 


»»emove flac to y 
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L6 


flor:. 


fdar:. 


PLL 2 
spit 
Jmp'pe 
jmp a2a 
lac'g 

dac sa 
and = oct 
dac a 

idx q 
lac'q 
S2r.5 

jmp a98 
and = oct 
ral 5 

dac ap 
lac'q 
sar 6 

sar 6 

dac ea 
jmp norm4t 
szf 5 

jmp >+7 
lac ea 
spa 

ema 

ser 5 

sza 

jmp fdari 
lac sa 
and = oct 
ior a 
dac'g 
idx q 

lac ap 
szf 5 

Jmp a97 
add = oct 
dac ap 
szot — 
jmp 7414 
dzm ap 
idx a 

sma 

jmp >+4 


SOECLL 


COL 


4O0000 


20 


.o,execute floating skip 


fdari: 


fdar2s 


fmur:. 


rar 1 

dac a 

idx ea 
law'!41 

add q 

dac q 
jmp fdar 
ral 1 

lio ea 

rer 6 
dac'!q 

jmp norm4 
lac ea 

sma 

jmp fdare 
lac = oct O 
dac'q . 
lio = oct 400000 
idx q 
diotg 

jmp norm4 
stf 6 

jmp norm4 
lac ea 

sub factor 
add ey 

dac ea 

SZO 

jmp fdir5 «emul overflow 
lac a 

mul y - 

dac tempi 
rir 1 

dio temp 
lac a 

mul yp 

add temp 
and = oct 377777 
dac temp 
lac tempt 
dac a 

SZO 

idx a 


17 


18 


fdirs. 


fdirt: 


fdire;: 


fdir3: 
fdir6; 


fdird: 


lae 
mul 
add 
and 


dac a 


8ZO 


y 

ap 

temp 

= oct 377777 
p 


idx a 


lace 
xor 
jmp 
eli 
lac 
div 
jmp 
dac 
dio 
lac 
mul 
ema 
add 
mul 
dac 
spa 
Jmp 
add 
and 
dace 
$ZO 
idx 
law 
add 
add 
sub 
jmp 
lac 
sas 
jmp 
lac 
lio 


Jmp 


law! 


add 
dace 
lac 
add 


_ jmp 


sa 
sy 
fadr5y 


= oct 200000 

x 

fdir3 

y 

temp »-smay need rir si 


yP 
NA 


temp 
y 
temp 


fdir4 

temp 

= oct 377777 
yp 


y 
1 


ea 
factor 
ey 
fmur+3 


x 

= oct 200000 
fadr3y 

= oct 377776 
= oct 377776 
fdirt 

4 


x 

y 

temp 

= oct 200000 
fdire 


fdirds 


fskr:. 


fskri3 


fsur:;. 


fadr:. 


9 


sma 
jmp >+7 

dzm a 

dzm ap 

dzm sa 

law! 37 

dac ea 

jmp norm4t 

stf 6 

jmp fmur+6 

lac'pe | 

and = oct 17777 

ior = oct 640000 

dac fskri 

lac sa 

and = oct 400000 

ior a 

cli 

loc 

jmp norm4 » + done 

idx pe 

jmp norm4 ». eaone 

lac sy 

ema 

dac sy 

lac ea 

sub ey 

sza' | 
jmp fadre -. exponents equal 
spa 

jmp fadr7 -..@ea shift 
sub = oct 14 

dac temp 

sma -o £y shift 
cla 

add shtble eeetable start loc 
dap >+44 

lac y 

lio yp 

rill 1 

xet .. 

dac y 

cla 

rer 

dio yp 

lac temp 

sma sza 

jmp fadr+6 
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fadre: 


fadr3y: 
fadr3: 


lac sa 

xor sy 

spa 

jmp fadr3 ~eeSigns differ 
lac ap 

add yp 

dac ap 

cla 
SZO 
law 
add 
add 
dac 
szo! 
jmp norm 

sma 

jmp >+6 

lac y 

sas = oct 377777 
jmp >+3 

law!0O 

dac a 

law 1 

add ea 

dac ea 

lac a 

lio ap 

ril i 

rer i 

and = oct 377777 
dac a 

cla 

rer i, 

dio ap 

szo! 

jmp -norm 

spa 

jmp fdird5+e 

stf 6 

jmp norm 

lac a 

sub y 

dac a 

szat 


o< 9 


fadr3a;: 


fadrh: 


fadr5y: 
fadr5: 


fadr7: 


jmp 
spa 
jmp 
lac 
sub 
dac 
sma 
jmp 
add 
add 
dac 


law! 


add 
dac 
Jmp 
lae 
sub 
dac 
sma 
jmp 
ema 
dac 
lac 
cma 
dac 
jmp 
cma 
dac 
lac 
ema 
dac 
lac 
sub 
Jmp 
ema 
sub 
dac 
sma 
cla 
add 
dap 
lac 
lio 


aA. 


fadr4 oe zero result 


fadr5 oe minus 
ap eee plus 
yP 
ap 


norm ee -aone 
= oct 200000 

= oct 200000 

ap 

4 

a 

a 

norm ee one 
ap 

yp 

ap 


norm ee done 


ap 
sa 


sa 
norm »+,aone 


a 
sa 


sa 
YP 


ap 
fadr3a—3 


= oct 14 
temp 


shtble 
> +4 
a 


ap 


ys at i 
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norms. 


norm 3 


norme 3 


norm33 


norm4! 


XCt .- 
dac a 

ela 

rer 1 

dio ap 
lac ey 
dac ea 
lac temp 
sma sza 
jmp fadr7+1 
jmp fadr2 
lac a 
sza!t 

jmp norm2 
lio ap 
ril 1 

rel 4 
sma! 

jmp norm3 
dac temp 
law!4 

add ea 
dac ea 
lac temp 
jmp normt 
lace ap 
sza! 

jmp fdir5+e 
law'21 
add ea 
dac ea 
lac ap 
lio a 

jmp normi-1 
rer 1 

dac a 

cla 

rer 1 

dio ap 
idx pe oo program counter plus one 
jmp pe 


oe. normalize 


foprr:. 


aQ7Ts 


age: 


aQ93 


shtble: 


as Q 
api. 
Sat. 
eat. 
View 

yPs 
Sys. 
Cy: Fg 
factor:. 
temp: . 
temp1:;. 
ptUc:. 
C6s« 
format! 
buff4! 


bpuff3:. 
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lac sa 
xet! pe 

dac sa 
jmp norm4 
dac'q 
idx.q 

lac ea 
jmp fdari-2 
dac ap 

idx q 
lac'gq 

jmp fdar—-2 
dac yp 


J 
loc shtble+11 
ser 1 


mn 
€ 
uy 
Oo CON] OVUI Ww 


oct 13 


lve oct 46 
loc buff3 
blk. 
blk.’ 
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readc! és 
dap readox 
ieword! jsp buff 


oe gets jda' to 
oeetO get back 
eeetO get tape character 


rir 7 
spi oeetvape channel 7 punched? 
jmp icword 2e -yes-get new character 
rel 7% ». no-get character into AC 
and = oct 77 »e Bet concise code in AC 
jmp xam 26 FO exchange O and 20 
rs5: oct 764201 ».ot0 accept typewriter 
s2fid ees Character 
jmp 7-1 oe Wait till key hit 
elf 1 
tyi 
rel 9 
rel 9 o- character into AC 
xams sza!t 00 e Zero ? 
jmp >+4 20 eo ZeLO 
sad = oct 20 soeno=-twenty then?x 
cla «eethen replace with zero 
jmp +2 »»ethen okay as is-leave 
law 20 
dac reade 
add rs3 2+ table constant to get 
eos LOtble entry 
dap >+1 
lio .. «eeLotble entry into I0 
cla 
rel 3 oe control cede into AC 
szal 2» control code zero ? 
jmp icword oo eyes-get new character 
rer 3 eeelotble entry back into IO 
lac reade «> concise code into AC 
readox: jmp .. eo AXLE 
rs3: and iotble os table constant 
taper! jsp buff oe paper tape 
typer'! jmp rs5 os obypewriter 
buff! dap buffi 
| lac buff4 oe+pick character 
add buff3 
dap >+1 
lio 


isp puff 


es any left in buffer 


puff: 


puffe: 
buffea: 


Savsre 


Saves 


Savecs 


axts 
rest; 


fxfs 
x3 
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jmp .. oo -CXit 

law! 45 .. buff3—-buff4—2 
dac buff4 ». reset counter 
law buff441 

dap buffea 

rpa' 

G1 C fois -- check assembly 
1dx 2-1 

isp buff4 

jmp buff2 

Law! 46 -» buff3—-buff4—-4 
dac buff4 +. reset counter 
jmp buff+1 

dap axt 

lac pe 

dap rest 

lac q.. 

sad = oct 700000 

jmp >+4 

sub = oct 14 

szf 5 

sub = oct 1 

dap >+1 

Cal .. 

law norm4 

jmp savec 

loc 

dap axt 

lac save 

dap fx 

law 5 

szf 5 

law 15 

dap fxf 

stf 5 

jmp .. 

law e. 

dap pe 

oct 760000 

JmMp oe 
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Peadg! 


rei: 


rges 


rgeeas 


res; 
re3a: 


re53 


loe 
jda 
azm 
lae 
dac 


stf 4 


dzm 
dzm 
dzm 
dzm 
dzm 
law 
dae 
jda 
spi! 
jmp 
dio 
dace 
spi 
Jmp 
ril 
spi? 
jmp 
rer 
lac 
rel 
dac 
idx 
sad 
Jmp 
jda 
jmp 
Git 
lac 
and 
ior 


temp 
readg 


rgea 


4. 


re3 


ce 
6 
ee 

te 
af sites tt 
reza 
readc 
rge2 *, 
dy 


= oct 7VOOOOO 


temp 
readg 


rer 9 


EC? 
lac 
jmp 
ril 
spi! 
Jmp 


) 
ee 


Pxt 
ab 


rei 


2eepDoint counter 
os. Char, counter 
». Clear flae 
o2s8et exponent 


2» .¢¢ ig 4.7 


+e CCG Ls one 


oe put away character 


+oend char, equal 4 


«es -8et IO exit word 


s+enoneé alpha 
ee,code is 2-3 
.»-code is one 


rego; 


re7: 


re7as 


regs 


reo: 


regio: 
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ril 1 

spi 

jmp rgi4 +2ecode is 3 
dac readg 

sza! 22.code is 2 
jmp rgid eeechar. equal zero 
idx writc 

lac ap 

mul = oct 12 

dac temp 

riy 2 

rer 9 

rer 9 

add readg 

dac ap 

lac a 

mul = oct 12 

rir 1 

rel 9 

rel 9 

add temp 

dac a 

idx pte 

idx cc 

lio rgi5dc 

sad = oct i2 2-2e1O Significant characters 
dio rg7a 

jda readc 

spi 

jmp rgg ».ealpha 
i 

spi 

jmp rg6 

rir 1 

dac write «».save AC, I0 
dio write 

szfi4 

jmp rgii 

lac a 2eefixed pt. int. 
sza 

stf 6 
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rg10c: 


reits 


rei2s 
rei4s 


regis: 


reise: 
writc! 


lac ap oe check assembly 
lio sa 
spi 

ema 

lio write 
jmp fxf 
law >+2 
dap pe 
jmp norm > 
lac pte 
szalt 

jmp rgi2 
Cal os 
fmu tenth 
law'4 
add ptc 
dac pte 
jmp rgi1+3 
lac write 
Jmp rgii-e2 
sad plus 
jmp >+10 
sad minus 
Jmp 2+5 
elf 4 

dzm pte 
idx write 
jmp rg8 
Law! 0 

dace sa 
jmp rg8 
lac write 
sza : 
jJmp rg7a 
jmp rg8_ 
Loe 
dap w3 
cla 

rel 8 

ema 

dac temp 
cla 

rel 5 

rel 5 

dac write 


ws 


ocworad! 
w13 


w3: 
we3 


typew! 
tapew! 
tapewas 


bothw! 
writio! 


write! 


wre 


szat 

jmp we 

sad = oct 20 
cla 

dac tempt 
lio tempt 
jmp tapewa 
isp temp 
jmp w4+4 
IMD a 

lac = oct 20 
jmp w4 
tyo! 

jmp tapewa 
lac write 
add rs3 
dap +4 
LILO: 
ppa! 

jmp wt 

jmp typew 
loc ~ 


dap >+14 
cla 

rel 8 

ema 

dac temp 
rer 8 
ppa! 

isp temp 
Jmp >-2 
JmMp a. 
Loc 

jda save 
lac write 
dzm sa 


dzm ap 


sma 
jmp wre 
dac sa 
ema 

dac a 

law 34 
dac ea 
dio wrt37 


»sewWrite integer 
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30 


writf! 


writfd: 


wrt: 


wrtes 


law >+2 

dap pe 

jmp norm 

lac wrt34 

jmp writfd 

loc | 

jda save’ 

lac wrt35 

dio wrt37 

dac wrt6z 

lio sa 

dzm sa 

dio unflo 

oct 760204 

lio format 

rel 6 

dac reade ee eStore n positive 
szait at 

jmp wrte eesno Character to left 
ema . 

dac write ee Store n négative 
Cal eo. 

fmu tenth ee om 4-10 

isp write ~oemake flac less than 1 
jmp wrti 

lac ea 

sub factor 

sma 

jmp wrt2o 

Lio format 

rel 6 

ela 

rel 6 

add readc. 

sub = o¢t 12 

sma sza »«.check assembly 
jmp wrt6x 

add = oct 12 

mul = oct 452525 

sel 2 

add factor 

dac sixtb 

Cal oe. 

fad sixt 


wrt6x3 


wrt6zs3 
wrt6: 


wrt3ab: 


law 
dac 
lac 
sub 
spa 
jmp 
cal 


idx 
lac 
szat 
jmp 
law 
dap 
jmp 


lac 
sub 
sma 
Jmp 
cal 
fad 
lac 
and 
ral 
dac 
lac 
and 


a. 


20 
sixtb 
ea 
factor 


wrt6x 
tenth 
reade 
readc 


wrt5 

>+2 

pe 

norm 

ten ‘sae 20 
factor 

ea... 

sza 

wrt3ab 


sixt oe,add 16 
= oct 170000 

a 

6 

writio 

a 


= oct 7777 


dac a 


lac 
sZa 
jmp 
cla 
s2f 
Jmp 
Lio 
rel 
sub 
spa 
jmp 
rer 
rir 
spit 
law 


writio 


wrt4 esenone zero 


TT 
wrt3 
pee 


readc 
wrt3c 
6 

4 

20 
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wrt3: 


wrt3c: 


wrt53 


wrt 343 
wrt353 
wrt313 


wrt 303 


wrt 363 


wrt373 


rel 9 

rel 9 

jda write 
lac readec 
sub = oct. 1 
dac readc ~— 
jmp wrt6-2 — . 
str 4 wy 
lio format — 
ril 6 

rel 6 

szal 

jmp wrt30 
dac reade 
lio point 
jda write eeeprint point 
lac wrt34 eee 
dac wrt6-1 
jmp wrt6 

jmp wrt30 
jmp wrt5 

loc >+41 

lio minus 
jmp wrt36 
lio = oct 20 
lio plus 

law 70 

and format 
sza!l 

jmp wrt36 
rar 

lio unflo 
Spi 

law ee. 
add wrt31 
dap 7+1 

ROU: eis 

jda write 
elf 4 

lio wrt37 
jda write 
jmp fxf 

loc 


plus; 

minus; 
points 
tenths 


tens 
sixt: 


sixth: 
wrt4ts 


wrt2eods 


unflo! 


une; 


un3$ 


unlts 


un53 
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oct 57 

oct 5/I 

oct 73 

oet 2746341 
oct 234/16)! 
oct 10 

oct 2/10000 
loc 

oct. 17 

oct 200000 
loc 

oct 20 

str 4 

jmp wrt3 
idx reade 
jmp wrt 
loc 

dap un5 
law 34 - 
Sub ea~ 
add fixexp 
sza! 

jmp un4 »«-OK as is 
lio right 
spa 

lio left 
dio un3 
sma 

ema 

dac unflo 
lac a 

lio ap 
ril 4 

loe 

dac a 

ela 

rer 4 

dac ap 

isp unflo 


jmp une 


lio sa 
lac a 
spi 
cma 
Jmp .4 


34 


fixexp! 
rights 
lefts 
iotbile! 


1 
4 
200020 
200001 


200002 — 


200203 
200004 


200205 


200206 
200007 
200010 
200214 
000100 
0000143 
000100 
000100 
000100 
000100 
400200 
500221 
hoo222 
4900023 
4oo224 
4oo0025 
400026 
4OQ0227 
400230 
4000314 
000400 
500233 
000034 


5. 000035 


4.00236 
000037 
100040 
4oo244 
kooehke 


; 400043 


4ooe44 
hooo4s 
400046 
hoO247 
400250 
400054 


eee Zero, not space 


oeeSPaCe, 


not zero 


fsrrs. 


fsrris 


oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 
oct 


oct 


lac 
spa 
Jmp 


000100 
000100 
300054 
000255 
000256 
300057 
000100 
400064 
400062 
400263 
4o0064 
400265 
400266 
400067 
400070 
400271 
700272 
300073 
700274 
700075 
0004100 
400277 


sy 


fserr 


lac y 


sza!' 


Jmp 


norm4 


law! 5 


dac 
Jsp 
lac 
sub 


fscon 
savsr 


ey 
factor 


ser 41 


spa 
jmp 
spi 
jmp 
add 
dac 
lac 


fsme 


fsodd 
factor 
cy 

¥ 


sar 1 


add 
jmp 


= o¢t 200000 
fsrr3 
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eo Square root routine 
eee Sign mantissa 

«+ test for minus 

ee eyes exit 


ee initialize x sub i counter 


eo eeXponent 

»» eremove bias 

2+ eSquare root of exponent 
«eetest for add positive exp. 
eee yes ~ 

«2-test for odd pos. exp. 

68 eyes 


eee Store new exponent 
+e compute initial x sub i 
esey over 2 
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fsrre: 


fsrr3: 


fsme: 


fsodd;: 
fsodda: 


fserrs 


fxsi; 

fscon: 
fxsih: 
feor:. 


lac 
sar 
div 
nop 
add 
dac 
sar 
dac 
isp 
Jmp 
lac 
dac 


cal . 


fda 
flo 
fad 
fda 
flo 
fdi 
fad 


add 
dac 
jmp 
spi 
jmp 
Jmp 
add 
add 
dac 
Lac 
sar 
dac 


jmp 


y 
1 


fxsi 


fxsih 
fxsi 
1 
fxsih 
fscon 
fsrre 
ey 
fxsih 
num 
zero 
fxsi 
fxsi 
num 
fxsi 
fxsi 


- law'4 


ea 
ea 
rest 


fsrri-1 
fsodda 
= oct 1 
factor 
ey 
¥ 
4, 


x 
fsrri+e 


stf 6 


jmp 


loc 
loc 
Jsp 
cal 
fad 


jmp 


norm/| 
loe . we 


savsr 
ftpi2 


fsira 


e+e y over X subl 


«+ yields new x sub i 


»++divide above sum by two 


... test for odd exp 

ee eNO 

»e yes 

»,,add one to exponent 


.. high order mantissa 
».-divide by 4 


...set flag 
2 exit 


~.,cosine routine 


»».add pi over 2 to make 
like sin 
2. exit to sin rout. 


fsirs. 
fsiras 


fsire: 


fsirds 
fsir7: 


fsir8s 
fsirts 


fsir3s 


jsp 
cal 
fdi 
lac 
spa 
Jmp 
cal 
fsu 


lac 
sma 
jmp 
cal 
fad 
lac 
spa 
jmp 
cal 
fsu 
cal 
fda 
fmu 
fda 
fmu 
fad 
fmu 
fad 
fmu 
fad 


fad 
fmu 
jmp 
cal 
fad 
jmp 
cal 
fad 
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savsr eesSine routine 


ftpi2 +s -convert radians to x 
sa ee-Sign of x 


fsirt 


ftfor ...subtract two pi to 
ses reduce to 
sa »+«minus two pi to zero 


fsire 


ftone 

ga 

fsir3 

ftone 

fxsi 

o* ee square xX 
fUX2 eeeSave x square 
ftecy9 oes compute sine 
ftc7 

ftxe 

fte5 

LFtxe 

fte3 

ftxe 

ftet 

fxsi 

rest 

ftfor 

fsir+3 


ftone 


law'13 


add. 


sma 


Jmp 
Lac 


ea 
sza 
fsir5 
sa 


cma 


dac 
jmp 


sa 
peel 
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fsirdss 


ftxes 


ftones 


Fttwos 


ftfors 


ftpies 


ftets 


ftec33 


fted5: 


fte73 


fFtcQs 


num: 


Zeros 


cal 
fad 
jmp 
loc 
Loe 
loe 
oct 
loc 
oct 
oct 
loc 
oct 
oct 
loc 
oct 
oct 
oct 
oct 
oct 
oct 
oct 


—6oet 


oct 
oct 
oct 
oct 
oct 
oct 
oct 


oct 
oct 
oct 
loc. 
loc 
loc 
loc 
loc 
Loe 
bik 
fins 


fttwo 
fsir7 


200000 
14 


15 
200000 


16 
314037 
265211 
14 
311037 
265101 
14 
645273 
301325 
13 
24.3150 
257313 
10 
631114 
306213 


oct 4 


236657 
164425 
TTTT76 


200000. 


+ + o1.222077413306 

» + 06245273602 362 
oes 0243150536417 
ooo, 0014446306243 


eee 2236657351052 : 


